home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 11
/
FM Towns Free Software Collection 11.iso
/
t_os
/
data
/
dora
/
doraset.plp
< prev
next >
Wrap
Text File
|
1995-08-14
|
56KB
|
1,723 lines
%setNETbps{
var netbps[80]; var netbps2[80]; var netbps3[80]; var netbps4[80];
netbps:=@tail(ROAD,{/});
netbps2:=@tail(ROAD2,{/});
netbps3:=@tail(ROAD3,{/});
netbps4:=@tail(ROAD4,{/});
case(netbps={},{Yes},{netbps:={未設定}},{No},{});
case(netbps2={},{Yes},{netbps2:={未設定}},{No},{});
case(netbps3={},{Yes},{netbps3:={未設定}},{No},{});
case(netbps4={},{Yes},{netbps4:={未設定}},{No},{});
%a @plane(
{c }|NET|{の電話番号毎の通信速度を入力してください。\n}|
{t ch.1の電話番号=}|road|{ /xxxxxx\n}|
{t ch.2の電話番号=}|road2|{ /xxxxxx\n}|
{t ch.3の電話番号=}|road3|{ /xxxxxx\n}|
{t ch.4の電話番号=}|road4|{ /xxxxxx\n}|
{s / 設定 / 取消 },
netbps,netbps2,netbps3,netbps4);
%netbps @head(@getline(a,1,1),{\n});%netbps2 @head(@getline(a,2,1),{\n});
%netbps3 @head(@getline(a,3,1),{\n});%netbps4 @head(@getline(a,4,1),{\n});
%ok @head(@getline(a,5,1),{\n});
case(ok,{ 1},{
ROAD:= @im(@nth(ROAD,1,{/})|{/}|netbps);
ROAD2:= @im(@nth(ROAD2,1,{/})|{/}|netbps2);
ROAD3:= @im(@nth(ROAD3,1,{/})|{/}|netbps3);
ROAD4:= @im(@nth(ROAD4,1,{/})|{/}|netbps4);
},
{ 2},{im({No})},
,{im({No})});
};
%setBBSname {
loop ({
SNDMSG({erande_f.snd});
footnote({ネットの名称を入力して下さい});
select ({ネットの名称・電話番号・通信速度の設定},
Wtime4,{im({No})},
{ネットの名称を入力する},
{SNDMSG({nyuryo_f.snd});footnote({NETの名称を入力し}|
{て下さい});
%net @input({ログファイル名称に使用しますので、必ず}|
{半角の大文字\n}|{3文字にてNETの簡易名称を入力して}|
{下さい。\n}|{ 尚 簡易名称は「.」を含まないで表現し}|
{て下さい。\n},
,NET);
footnote({ネット巡回機能で使用(する予定です)します});
NETname:=@input(NET|
{の正式なネット名称を入力して下さい},,NETname);
case (@nochar(net),
3,{NET:=net;im({Yes})},
2,{NET:=net;im({Yes})}
);im({Yes});
},
{ 次の処理に進む「DORA電話帳」},{im({No})}
)});
};
%setACP {
select({<< アクセスポイント >>「現在の設定は}|AcP|{です},
Wtime4,{},
{区域内通話 },{AcP:={区域内通話};AcPNo:=1},
{隣接~20km },{AcP:={隣接~20km};AcPNo:=2},
{ ~30km },{AcP:={20km~30km};AcPNo:=3},
{ ~40km },{AcP:={30km~40km};AcPNo:=4},
{ ~60km },{AcP:={40km~60km};AcPNo:=5},
{ ~80km },{AcP:={60km~80km};AcPNo:=6},
{ ~100km },{AcP:={80km~100km};AcPNo:=7},
{ ~160km },{AcP:={100km~160km};AcPNo:=8},
{ 160km以上 },{AcP:={160km以上};AcPNo:=9},
{ 変更しない},{});
};
/* 電話番号一覧選択 */
%setROAD{
%HOKKAI1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
{ 札 幌 },{},
{ 函 館 },{},
{ 室 蘭 },{},
{ 釧 路 },{},
{ 帯 広 },{},
{ 北 見 },{},
{ 旭 川 },{},
{ 中 止 },{nodeON:={}}
);
};
%TOHOKU1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
/* { 弘 前 },{},
{ 青 森 },{},
{ 八 戸 },{},
{ 秋 田 },{},
{ 盛 岡 },{},
{ 北 上 },{},
{ 仙 台 },{},
{ 酒 田 },{},
{ 山 形 },{},
{会津若松},{},
{ 福 島 },{}, */
{ いわき THE BEAT-NET},
{ROAD:={0246-27-8368/9600};NETname:={THE BEAT-NET};NET:={TBN}},
/* { 郡 山 },{}, */
{ 中 止 },{nodeON:={}}
);
};
%NKANTO1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
{ 前 橋 },{},
{ 高 崎 },{},
{ 館 林 },{},
{ 小 山 },{},
{ 宇都宮 },{},
{ 水 戸 },{},
{ 日 立 },{},
{ 筑 波 },{},
{ 所 沢 },{},
{ 浦 和 },{},
{ 熊 谷 },{},
{ 越 谷 },{},
{ 川 越 },{},
{ 本 庄 },{},
{ 中 止 },{nodeON:={}}
);
};
%SKANTO1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
/* { 東 京 },{},*/
{ 八王子 ミンキームーン ネットワーク},
{ROAD:={0426-48-3881/38400};ROAD2:={0426-43-3292/19200};
NETname:={ミンキームーン ネットワーク};NET:={MMN};
gen2:={Yes};opentime:={23};closetime:={08}},
/* { 調 布 },{},
{ 立 川 },{},
{ 町 田 },{},
{ 千 葉 },{},
{ 君 津 },{},*/
{ 川 崎 SSS-NET},
{ROAD:={044-965-1567/9600};ROAD2:={044-965-1667/14400};
NETname:={SSS-NET};NET:={SSS}},
/*{ 川 崎 きまぐれ☆NET},
{ROAD:={044-798-3665/14400};ROAD2:={044-798-1748/14400};
NETname:={きまぐれ☆NET};NET:={MDN}},*/
{ 横 浜 Slow’S NET},
{ROAD:={045-584-1470/28000};
NETname:={Slow’S NET};NET:={SLO}},
/* { 厚 木 },{},
{ 平 塚 },{},
{ 小田原 },{},
{ 藤 沢 },{},
{ 横須賀 },{},
{ 柏 },{},*/
{ 松 戸 KT-Network},
{ROAD:={0473-44-5862/14400};NETname:={KT-Network};NET:={KTN}},
/* { 船 橋 },{},*/
{ 中 止 },{nodeON:={}}
);
};
%HOKURIK1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
/* { 新 潟 },{},
{ 上 越 },{},
{ 長 岡 },{},
{ 長 野 },{},
{ 松 本 },{},*/
{ 諏 訪 信州サミットネット},
{ROAD:={0266-79-6364/2400};ROAD2:={0266-79-5926/9600};
ROAD3:={0266-79-4914/14000};
NETname:={サミットネット};NET:={SUM}},
/* { 佐 久 },{},
{ 金 沢 },{},
{ 富 山 },{},
{ 福 井 },{},*/
{ 中 止 },{nodeON:={}}
);
};
%TYUBU1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
{ 名古屋 JMJ-NET},
{ROAD:={052-483-0636/9600};NETname:={JMJ-NET};
NET:={JMJ}},
/* { 名古屋 MINA-NET},
{ROAD:={052-972-6430/14400};NETname:={MINA-NET};
NET:={MIN}},
{ 浜 松 },{},
{ 豊 橋 },{},
{ 静 岡 },{},
{ 甲 府 },{},
{ 沼 津 },{},*/
{ 岡 崎 TGK-NET},
{ROAD:={0564-24-5531/14400};NETname:={TGK-NET};
NET:={TGK}},
{ 安 城 オレンジ ネット},
{ROAD:={0566-22-5089/14400};NETname:={オレンジ”ネット};
NET:={OTT}},
{ 安 城 MNK’s BBS},
{ROAD:={0566-98-1639/9600};ROAD2:={0566-98-6946/9600};
ROAD3:={0566-98-9374/2400};
NETname:={MNK’s BBS};NET:={MNK}},
{ 碧 南 JC-NET},
{ROAD:={0566-42-1838/14400};NETname:={JC-NET};
NET:={JCN};
},
{ 豊 川 ITY-Net},
{ROAD:={05338-2-2622/14400};NETname:={ITY-Net};
NET:={ITY}},
/* { 豊 田 },{},
{ 刈 谷 },{},*/
{ 春日井 KMF-Net},
{ROAD:={0568-83-4416/14400};ROAD2:={0568-83-4859/14400};
NETname:={KMF-Net};NET:={KMF}},
/* { 高 山 },
{},*/
{ 岐 阜 PAO-NET},
{ROAD:={058-265-9281/14400};ROAD2:={058-265-8856/14400};
NETname:={PAO-Net};NET:={PAO}},
/* { 大 垣 },{},
{ 一 宮 },{},
{ 津 },{},
{ 四日市 },{},*/
{ 中 止 },{nodeON:={}}
);
};
%KINKI1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
{ 大 阪 アリス ネット},
{ROAD:={06-882-0685/9600};ROAD2:={06-882-0172/9600};
ROAD3:={06-882-0690/9600};ROAD4:={06-882-1733/9600};
NET:={ALS}},
{ 枚 方 Yama BBS},
{ROAD:={0720-50-9412/9600};NETname:={Yama BBS};
NET:={YAM}},
{ 枚 方 DIGITAL-BBS},
{ROAD:={0720-39-4459/144000};ROAD2:={0720-39-4460/144000};
ROAD3:={0720-39-4461/144000};ROAD4:={0720-39-4462/144000};
NETname:={DIGITAL-BBS};NET:={DIG}},
/* { 堺 },{},
{ 茨 木 },{},
{ 和歌山 },{},
{ 奈 良 },{},
{ 彦 根 },{},
{ 京 都 },{},
{ 福知山 },{},
{ 大 津 },{},*/
{ 神 戸 AOI-NET},
{ROAD:={078-631-7240/9600};ROAD2:={078-631-7547/144000};
ROAD3:={078-631-5943/9600};ROAD4:={078-631-0342/144000};
NETname:={AOI-NET};NET:={AOI}},
{ 姫 路 MOS-NET},
{ROAD:={0792-45-9410/9600};NETname:={MOS-NET};
NET:={MOS}},
{ 中 止 },{nodeON:={}}
);
};
%CHUGOKU1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
{ 広 島 },{},
{ 下 関 },{},
{ 徳 山 },{},
{ 宇 部 },{},
{ 山 口 },{},
{ 福 山 },{},
{ 松 江 },{},
{ 鳥 取 },{},
{ 米 子 },{},
{ 岡 山 },{},
{ 中 止 },{nodeON:={}}
);
};
%SHIKOKU1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
{ 高 松 },{},
{ 徳 島 },{},
{ 高 知 },{},
{ 松 山 },{},
{ 中 止 },{nodeON:={}}
);
};
%KYUSYU1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
/* { 福 岡 },{},
{ 北九州 },{},
{ 久留米 },{},
{ 大牟田 },{},
{ 佐 賀 },{},
{ 佐世保 },{},
{ 長 崎 },{},
{ 熊 本 },{},
{ 大 分 },{},
{ 鹿児島 },{},*/
{ 宮 崎 オビ-ネット[社会人のみ対象]},
{ROAD:={0987-25-2599/14400};NETname:={オビ-ネット};
NET:={OBI}},
{ 中 止 },{nodeON:={}}
);
};
%OKINAWA1{
SNDMSG({erande_f.snd});
select({電話番号を選択下さい}|
{(現在は『}|RoaD|{』)},
,,
{ 那 覇 サラダハウス-BBS},
{ROAD:={0988-57-5791/14400};NETname:={サラダハウス-BBS};
NET:={SAR}},
{ 中 止 },{nodeON:={}}
);
};
%setNODE{
var nodeON[2];nodeON:={};
loop ({SNDMSG({erande_f.snd});
footnote({ROAD1アクセス・ポイントの電話番号を設定処理中});
case (nodeON={On},
{Yes},{intUSR;im({No})},
{No},{localName}
);
})
};
var RoaD[80];var RoaD2[80];var RoaD3[80];var RoaD4[80];
RoaD:=ROAD;RoaD2:=ROAD2;RoaD3:=ROAD3;RoaD4:=ROAD4;
ROAD:={};ROAD2:={};ROAD3:={};ROAD4:={};
setNODE;
road:=@nth(ROAD,1,{/});road2:=@nth(ROAD2,1,{/});
road3:=@nth(ROAD3,1,{/});road4:=@nth(ROAD4,1,{/});
};
%localName{
select ({ROAD1アクセス・ポイント地域を選択してください},
,,
/* { 北海道 },{nodeON:={On};HOKKAI1;im({Yes})},*/
{ 東 北 },{nodeON:={On};TOHOKU1;im({Yes})},
/* { 北関東 },{nodeON:={On};NKANTO1;im({Yes})},*/
{ 南関東 },{nodeON:={On};SKANTO1;im({Yes})},
{ 北信越 },{nodeON:={On};HOKURIK1;im({Yes})},
{ 中 部 },{nodeON:={On};TYUBU1;im({Yes})},
{ 近 畿 },{nodeON:={On};KINKI1;im({Yes})},
/* { 中 国 },{nodeON:={On};CHUGOKU1;im({Yes})},
{ 四 国 },{nodeON:={On};SHIKOKU1;im({Yes})},*/
{ 九 州 },{nodeON:={On};KYUSYU1;im({Yes})},
{ 沖 縄 },{nodeON:={On};OKINAWA1;im({Yes})},
{ 直接入力},{nodeON:={On};setBBSname;im({Yes})},
{ 取 消 },
{NETname:=netname;
ROAD:=RoaD;ROAD2:=RoaD2;ROAD3:=RoaD3;ROAD4:=RoaD4;im({No})}
);
};
/* 電話番号の設定 */
%setBBSTEL{
var gen[3]; var gen2[3]; var gen3[3]; var gen4[3];
var netname[40];var opentime[2];var closetime[2];
var road[80]; var road2[80]; var road3[80]; var road4[80];
road:=@nth(ROAD,1,{/});
road2:=@nth(ROAD2,1,{/});
road3:=@nth(ROAD3,1,{/});
road4:=@nth(ROAD4,1,{/});
gen:= @case(GEN,{Yes},{im({1})},{No},{im({2})},,{im({2})});
gen2:= @case(GEN2,{Yes},{im({1})},{No},{im({2})},,{im({2})});
gen3:= @case(GEN3,{Yes},{im({1})},{No},{im({2})},,{im({2})});
gen4:= @case(GEN4,{Yes},{im({1})},{No},{im({2})},,{im({2})});
opentime:=openT; closetime:=closeT;
loop ({
SNDMSG({erande_f.snd});
footnote({注意;アクセス時間制限が無い場合「開・閉局時間」=空白にして下さい});
%a @plane(
{c○ネット名称=★}|NETname|{\n}|
{t 開局時間(24H表示) /xx\n}|
{t 閉局時間(24H表示) /xx\n}|
{s DORA電話帳 /BBSを捜す \n}|
{s 電話番号クリア /CH.1 /CH.2 /CH.3 /CH.4\n}|
{t ch.1の電話番号 /\n}|
{r ch.1 のアクセス時間制限 /有り /無し \n}|
{t ch.2の電話番号 /\n}|
{r ch.2 のアクセス時間制限 /有り /無し \n}|
{t ch.3の電話番号 /\n}|
{r ch.3 のアクセス時間制限 /有り /無し \n}|
{t ch.4の電話番号 /\n}|
{r ch.4 のアクセス時間制限 /有り /無し \n}|
{c 設定を選択すると通信速度の設定が出来ます\n}|
{s / 設定 / 取消 \n},
opentime,closetime,road,gen,road2,gen2,
road3,gen3,road4,gen4);
opentime:= @head(@getline(a,1,1),{\n});
closetime:= @head(@getline(a,2,1),{\n});
%telno @head(@getline(a,3,1),{\n});
%clear @head(@getline(a,4,1),{\n});
road:= @head(@getline(a,5,1),{\n}); gen:= @head(@getline(a,6,1),{\n});
road2:= @head(@getline(a,7,1),{\n}); gen2:= @head(@getline(a,8,1),{\n});
road3:= @head(@getline(a,9,1),{\n}); gen3:= @head(@getline(a,10,1),{\n});
road4:= @head(@getline(a,11,1),{\n}); gen4:= @head(@getline(a,12,1),{\n});
%ok @head(@getline(a,13,1),{\n});
case (telno,
{ 1},{
netname:=NETname;
NETname:={};NET:={};setROAD}
);
case (clear,
{ 1},{road:={}},
{ 2},{road2:={}},
{ 3},{road3:={}},
{ 4},{road4:={}});
case(ok,{ 1},{ openT:=opentime;
closeT:=closetime;
ROAD:=@im(road|{/}|@tail(ROAD,{/}));
ROAD2:=@im(road2|{/}|@tail(ROAD2,{/}));
ROAD3:=@im(road3|{/}|@tail(ROAD3,{/}));
ROAD4:=@im(road4|{/}|@tail(ROAD4,{/}));
case(gen,{ 1},{GEN:={Yes}},{ 2},{GEN:={No}},,{GEN:={No}});
case(gen2,{ 1},{GEN2:={Yes}},{ 2},{GEN2:={No}},,{GEN2:={No}});
case(gen3,{ 1},{GEN3:={Yes}},{ 2},{GEN3:={No}},,{GEN3:={No}});
case(gen4,{ 1},{GEN4:={Yes}},{ 2},{GEN4:={No}},,{GEN4:={No}});
setNETbps;im({No})},
{ 2},{im({No})},,{im({Yes})});
});
};
/* USER-ID & PASSWORDの設定 */
%txlpc {[password]
execTXL({nul},{pc }|password|{ }|TEMP2|{fapxpc.tmp});
%pc @read(TEMP2|{fapxpc.tmp});
delfile(TEMP2|{fapxpc.tmp});
case(pc,{Error(SUM)},{im(password)},,{im(pc)});
};
%pwpc {
var p[35];
var n[1];
PWP:=@txlpc(@head(passp,{,}));
p:=@body(passp,{,}); n:=1;
loop ({
%pz @head(p,{,});
case (pz,
{},{PWP:=PWP|{,}},,
{PWP:=PWP|{,}|@txlpc(pz)});
p:=@body(p,{,});
n:=n+1;
im(n!=4)
});
};
%setID {var id[8];
%pass PassWord;
%handle HanDLe;
case (ID={},{Yes},{id:={GUEST}},{No},{id:=ID});
loop ({
footnote({ユーザー情報を設定して下さい});SNDMSG({nyuryo_f.snd}); %a @plane(
{cユーザー情報を設定して下さい\n}|
{tユーザーID /xxxxxxxx\n}|
{tパスワード /xxxxxxxx\n}|
{tハンドル名 /xxxxxxxx\n}|
{s / 設定 / 取消 },
id,pass,handle);
id:= @head(@getline(a,1,1),{\n});%pass @head(@getline(a,2,1),{\n});
%handle @head(@getline(a,3,1),{\n});%ok @head(@getline(a,4,1),{\n});
case (ok,
{ 1},
{
ID:=id;
PassWord:=pass;
HanDLe:=handle;im({No})},
{ 2},{im({No})},,{im({No})});
})};
%setAT {var type[10];
footnote({モデムのタイプを選択して下さい});
type := @select({どういうタイプのモデムですか?},
Wtime4,{im({1200n})},
{ 1200 MNPなし },{im({1200n})},
{ 2400 MNPなし },{im({2400n})},
{ 2400(端末速度2400) MNPあり },{im({2400m})},
{ 2400(端末速度4800) MNPあり },{im({4800m})},
{ 9600(端末速度9600) MNPあり },{im({9600m})},
{ 14400以上(端末速度19200) MNPあり },{im({19200m})},
{ 38400以上(端末速度38400) MNPあり },{im({38400m})});
SNDMSG({nyuryo_f.snd});
footnote({ATコマンドを設定して下さい});
%a @input({ATコマンドを設定して下さい 例「ATX3\N2\V1\Q2\J0」},,
{AT}|@head(MODEM,{/}));
case (a<>{},{Yes},
{case(@getchar(a,1,2),{AT},
{case(a=@head(a,{\}),{Yes},
{MODEM:=@getchar(a,3,999)|{/}|
@getchar(a,3,999)|{/AT直接指定_}|type;}, ,{MODEM:=@getchar(a,3,999)|{/}|
{/AT直接指定_}|type;})})
},{No},{setAT})};
%FUJITSU{
SNDMSG({erande_f.snd});
footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{内蔵1200}, {MODEM:={X3//内蔵1200_1200n}},
{内蔵2400}, {MODEM:={X3/\N3\V1\Q3\J0%C0/内蔵2400_9600m}},
{富士通 PM1200F},{MODEM:={X3//PM1200F_1200n}},
{富士通 PM2400F},{MODEM:={X3/\N3\V1\Q3\J0%C0/PM2400F_9600m}},
{富士通 PM2400FII},{MODEM:={X3/\N7\Q3\J0\V2%C0/PM2400FII_9600m}},
{富士通 OAMD-301},{MODEM:={X3&D2/\N3\Q3\J0\V2/OAMD-301_9600m}},
{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%AIWA {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{AIWA PV-A1200},{MODEM:={X3//PV-A1200_1200n}},
{AIWA PV-A2400},{MODEM:={X3//PV-A2400_2400n}},
{AIWA PV-A2400MNP4},{MODEM:={&D2/&M4\Q1/PV-A2400MNP4_9600m}},
{AIWA PV-A24MNP5},{MODEM:={X3&D2/\N2\Q3\J0/PV-A24MNP5_9600m}},
{AIWA PV-A24V42},{MODEM:={X3&D2/\N2\Q3\J0/PV-A24V42_9600m}},
{AIWA PV-M24},{MODEM:={X3&D2/\N2\Q3\J0\V2/PV-M24_9600m}},
{AIWA PV-M24M5},{MODEM:={X3&D2/\N2\Q3\J0\V2/PV-M24M5_9600m}},
{AIWA PV-M24B5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C0/PV-M24B5_9600m}},
{AIWA PV-A24B5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C0/PV-A24B5_9600m}},
{AIWA PV-A96V5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C0/PV-A96V5_9600m}},
{AIWA PV-AF144V5},{MODEM:={X4&D2/\N2\Q3\J0\V2%C1/PV-AF144V5_19200m}},
{},{},
{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%OMRON {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{OMRON MD1200},{MODEM:={X4//MD1200_1200n}},
{OMRON MD12FS},{MODEM:={X4//MD12FS_1200n}},
{OMRON MD2400F},{MODEM:={X4/\N2\V1\Q2\J0/MD2400F_2400m}},
{OMRON MD24FB5V},{MODEM:={X4/\N2\Q2\J0\V2%C1/MD24FB5V_9600m}},
{OMRON MD24FP4},{MODEM:={X4/\N2\Q2\J0/MD24FP4_2400m}},
{OMRON MD24FP4II},{MODEM:={X4&P2/\N2\Q2\J0/MD24FP4II_9600m}},
{OMRON MD24FP5V},{MODEM:={X4/\N2\Q2\J0\V2%C1/MD24FP5V_9600m}},
{OMRON MD24FS4},{MODEM:={X4/\N2\Q2\J0/MD24FS4_2400m}},
{OMRON MD24FS5},{MODEM:={X4&E0/\N2\Q2\J0%C1/MD24FS5_4800m}},
{OMRON MD24FS7},{MODEM:={X4/\N2\Q2\J0%C1/MD24FS7_4800m}},
{OMRON MD246FL10V},{MODEM:={X4/\N2\Q2%C1\J0/MD24FL10V_9600m}},
{OMRON MD24XL10V},{MODEM:={X4/\N2\Q2%C1\J0/MD24XL10V_9600m}},
{OMRON MD96FB5V},{MODEM:={X4&E0/\N2\Q2%C1&M5*C1\D0\J0\V2/MD96FB5V_9600m}},
{OMRON MD96FL10V},{MODEM:={X4/\N2\Q2%C1\J0/MD96FL10V_19200m}},
{OMRON MD96XL10V},{MODEM:={X4/\N2\Q2%C1\J0/MD96XL10V_19200m}},
{OMRON MD96XT10V},{MODEM:={X4/\N2\Q2%C1\J0/MD96XT10V_19200m}},
{OMRON MD144XT10V},{MODEM:={X4/\N2\Q2%C1&M5*C1\D0\J0/MD144XT10V_19200m}},
{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%EPSON {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{EPSON SR-120S},{MODEM:={X3//SR-120S_1200n}},
{EPSON SR-240AT},{MODEM:={X3//SR-240AT_2400n}},
{EPSON SR-240V},{MODEM:={X3\V2/N1&K1%C1/SR-240V_9600m}},
{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%NEC {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{NEC COMSTAR 2424},{MODEM:={X3/\N3\Q2/COMSTAR 2424_2400m}},
{NEC COMSTARZ CLUB24/5}
,{MODEM:={X4/\N3\Q3\J0\V2&C1&D2&S1/COMSTARZ CLUB24/5_2400m}},
{},{},{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%SONY {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{SONY IT-V1200},{MODEM:={X3//IT-V1200_1200n}},
{},{},{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%MICROCORE{
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{MICROCORE MC24PA5},{MODEM:={X3/\N5\Q2\J0\X1%C1/MC24PA5_9600m}},
{MICROCORE MC14400FX},{MODEM:={X4/\N5\Q2\J0%C1/MC14400FX_19200m}},
{MICROCORE MC14400FX"アリスネット"},
{MODEM:={X4/\N5%C1/MC14400FX_19200m}},
{MICROCORE MC14400FX"ブレーク"},
{MODEM:={X4/\A1\K3\N5%J8%C1/MC14400FX_19200m}},
{},{},{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%PROSIDE{
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{PROSIDE PS-1414VQE},
{MODEM:={X3L1&D2/N1W1&K3&P3\A3\N3%C1/PS1414VQE_19200m}},
{},{},
{ATコマンド直設定 },{setAT},
{変更しない},{}
)};
%INTEGURAN{
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{インテグラン MP-1414F},{MODEM:={X4/&F&S1&E4%B0\N3/MP-1414F_14400m}},
{},{},{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%NISSEI {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{NISSEI FM9624},
{MODEM:={X3/\N3\Q3%C1/FM9624_9600m}},
{},{},
{ATコマンド直設定 },{setAT},
{変更しない},{}
)};
%SUNTAC{
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{SUNTAC MS144AVF},{MODEM:={X3/\N3\V2\Q2\J0\X0%C1/MS144AVF_19200m}},
{},{},{ATコマンド直設定 },{setAT},{変更しない},{}
)};
%DYNALINK{
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{DYNALINK 1414VE},
{MODEM:={X3&D2/N1W1&K3&P2\A3\N2S95=46/DYNALINK1414VE_19200m}},
{},{},
{ATコマンド直設定 },{setAT},
{変更しない},{}
)};
%BOCA {
SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
select({モデムの機種を選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{BOCA RESEARCH M144JE},{MODEM:={X3/&K3&P3\J0\A3\N2/M144JE_19200m}},
{},{},
{ATコマンド直設定 },{setAT},
{変更しない},{}
)};
%setMODEM{
%modem {case(MODEM,{},{im({未設定})},,{head(@tail(MODEM,{/}),{_})})};
SNDMSG({erande_f.snd});footnote({モデムのメーカーを選んで下さい});
select({モデムのメーカーを選んで下さい},
Wtime4,{},
{ FUJITSU },{FUJITSU}, { AIWA },{AIWA},
{ OMRON },{OMRON}, { EPSON },{EPSON},
{ NEC },{NEC}, { SONY },{SONY},
{ マイクロコア },{MICROCORE},{ プロサイド },{PROSIDE},
{ インテグラン },{INTEGURAN},{SUNTAC},{SUNTAC},
{ DYNALINK },{DYNALINK},{ BOCA RESEARCH },{BOCA},
{ 日成電機 },{NISSEI},{ ATコマンド直設定 },{setAT},
{ クロス・ケーブル接続 },{setCABL}
)};
/* DTEの調整 */
%BsetDTE{
case (MODEM,{},{footnote({モデム機種の設定を実施下さい});wait(3)},
,{setDTE});
};
%setDTE {var dte[7];
%modem @head(@tail(MODEM,{/}),{_});
dte:= @head(@tail(MODEM,{_}),{});
dte:= @getchar(dte,1,@nochar(dte)-1);
%DtE dte;
%mn @getchar(MODEM,@nochar(MODEM),1);
loop({
%ModeM @nth(MODEM,1,{/})|{/}|@nth(MODEM,2,{/})|{/}|modem|{_}|dte|mn;
%Dte @case (dte,
{2400},{im({ 1})},{4800},{im({ 2})},{9600},{im({ 3})},
{14400},{im({ 4})},{19200},{im({ 5})},
{38400},{im({ 6})},,{im({ 7})}
);
%a @plane(
{c 現状のモデム設定 \n}|
{c =}|MODEM|{ \n}|
{c 調整後のモデム設定 \n}|
{c =}|ModeM|{ \n}|
{c 現状の 端末速度設定 =}|dte|{bps \n}|
{c }|NET|{の端末速度を調整して下さい。\n}|
{c 調整後の端末速度 =}|dte|{bps \n}|
{c 端末速度 \n}|
{r/2400/4800/9600/14400/19200/38400/高速\n}|
{c ☆設定はサブメニューの「保存する>}|NET|{.USR」で確定。\n}|
{s / 設定 / 確認 / 取消 },
Dte);
%Dte @head(@getline(a,1,1),{\n});
%ok @head(@getline(a,2,1),{\n});
case (Dte,
{ 1},{dte:={2400}},{ 2},{dte:={4800}},
{ 3},{dte:={9600}},{ 4},{dte:={14400}},
{ 5},{dte:={19200}},{ 6},{dte:={38400}},
{ 7},{dte:=DtE}
);
case (ok,
{ 1},{MODEM:=@nth(MODEM,1,{/})|{/}|@nth(MODEM,2,{/})
|{/}|modem|{_}|dte|mn},
{ 2},{im({Yes})},
{ 3},{im({No})},
,{case (ok={ 0} && dte={ 0},
{Yes},{im({No})},
{No},{im({Yes})});
});
});
};
/* ダイヤル種類の設定 */
%setDIAL{%dial {case (DIAL,
{P},{im({ダイヤルパルス式})},
{T},{im({プッシュホン式})},
, {im({未設定})})};
footnote({電話回線の種類を指定して下さい});
select ({電話回線の種類を指定して下さい 現在は}|@dial|{です},
Wtime4,{},
{ダイヤルパルス式},{DIAL:={P}},
{ プッシュホン式 },{DIAL:={T}}
)};
%setMDM {loop ({
SNDMSG({erande_f.snd});
footnote({設定する情報を選択して下さい});
select ({設定する情報を選択して下さい << モデム設定 >>},
Wtime4,{im({No})},
{ モデム機種の設定 },{setMODEM;im({Yes})},
{ DTEの調整をする },{BsetDTE;im({Yes})},
{ ダイヤル種類の設定 },{setDIAL;im({Yes})},
{ 設定終了 },{im({No})}
)})};
/* '93/ 2 / 7 Take */
%setCABL{%modem {case (MODEM,{},{im({未設定})},
, {head(@tail(MODEM,{/}),{_})}
)};
SNDMSG({erande_f.snd});
footnote({ホストのバージョンを選んで下さい});
select({ホストのバージョンを選んで下さい 現在は「}|@modem|{」です},
Wtime4,{},
{RTBBS5.3αe以前}, {MODEM:={RET//RTBBS5.3αe_00s}},
{RTBBS5.3βa以降}, {MODEM:={ESC//RTBBS5.3βa_00s}},
{変更しない},{}
)};
/* ID検索リストの設定 */
%setRTTFIL{
footnote({RTTLC.EXEファイルを指定してください});
SNDMSG({erande_f.snd});
%rttlfil @filesel;
case (rttlfil<>{},
{Yes},
{
%cdir @getcdir;
case (@nochar(cdir)==3,
{Yes},{RTTLC:=cdir|rttlfil},
{No},{RTTLC:=cdir|{\}|rttlfil}
);rttl:=RTTLC;
});
im({Yes});
};
%setMEMBER{
footnote({ID検索用リストファイルを指定してください});
SNDMSG({erande_f.snd});
%member @filesel;
case (member<>{},
{Yes},
{
%cdir @getcdir;
case (@nochar(cdir)==3,
{Yes},{MEMBER:=cdir|member},
{No},{MEMBER:=cdir|{\}|member}
);idlist:=MEMBER;
});
im({Yes});
};
%chkDIR {
[DIR]
im(DIR={}||@getchar(DIR,2,2)={:\});
};
%setLOGF{
%chkDIR {
[DIR]
im(DIR={}||@getchar(DIR,2,2)={:\});
};
%dirHLP {☆自動スイッチの使い方☆
別なネットを登録するときには、「テンポラリ用」・「ログカッタ」の
ディレクトリは今までのデータが使用できます。
そこで上記以外の項目を空欄にし、「ログ保存用ディレクトリ」だけを入力
して「自動スイッチ」を選択して下さい。
これで、他のディレクトリは自動設定されます。
☆初期化スイッチの使い方☆
このスイッチを使うと、「テンポラリ用」・「ログカッタ」のディレクトリ
以外の項目を空欄(初期化)出来ます};
var arcdir [64]; var wkdir [64]; var updir [64];
var fswdir [64]; var rttldir [64]; var viewdir [64];
var idlist [64]; var rttl [64];
wkdir:= TEMP;
updir:= UP;
rttldir := RTTLdir;
rttl := RTTLC;
fswdir := FSW;
idlist := MEMBER;
viewdir := VIEWLOG;
loop ({
arcdir:= LOG;
case(updir={},
{Yes},{ case (LOG={},
{No},{updir:=@im(LOG|{\UP});UP:=updir})
});
case(fswdir={},
{Yes},{ case (LOG={},
{No},{fswdir:=@im(LOG|{\FREESOFT});FSW:=fswdir
})
});
case(idlist={},
{Yes}, {
case (LOG={},
{No},{idlist:=@im(LOG|{\PROFILE\member.lst});
MEMBER:=idlist
})
});
footnote({「ログカッタ指定」以外は、ログ保存用ディレクトリを}|
{入力すれば自動設定できます。});
SNDMSG({nyuryo_f.snd});
%a @plane(
{tログ保存用 /\n}|
{tテンポラリ用 /\n}|
{tアップロード用 /\n}|
{tフリーソフト用 /\n}|
{tRTTLC出力用 /\n}|
{t第2ログ参照用 /\n}|
{s 検索 /ログ保存 /テンポラリ /アップロード\n}|
{s /フリーソフト /RTTLC出力/ログ参照 \n}|
{tログカッタ(RTTLC)指定;ファイル名まで入力/\n}|
{c RTTLCが無い場合は「RTTLC」と入力\n}|
{tID検索リスト指定 ;ファイル名まで入力/\n}|
{s /RTTLCファイル/ID検索ファイル\n}|
{s / 設定 / 取消 / 自動 /初期化/ HELP},
arcdir,wkdir,updir,fswdir,rttldir,viewdir,rttl,idlist);
arcdir:=@head(@getline(a,1,1),{\n});
wkdir:= @head(@getline(a,2,1),{\n});
updir:= @head(@getline(a,3,1),{\n});
fswdir:=@head(@getline(a,4,1),{\n});
rttldir:=@head(@getline(a,5,1),{\n});
viewdir:=@head(@getline(a,6,1),{\n});
%sel1 @head(@getline(a,7,1),{\n});
%sel2 @head(@getline(a,8,1),{\n});
rttl:= @head(@getline(a,9,1),{\n});
idlist:=@head(@getline(a,10,1),{\n});
%sel3 @head(@getline(a,11,1),{\n});
%ok @head(@getline(a,12,1),{\n});
case (sel1,
{ 1},
{arcdir:=@selDIR({ログ保存ディレクトリ});im({Yes})},
{ 2},
{wkdir:=@selDIR({テンポラリディレクトリ})},
{ 3},
{updir:=@selDIR({アップロードディレクトリ})},
);
case (sel2,
{ 1},
{fswdir:=@selDIR({フリーソフト用ディレクトリ})},
{ 2},
{rttldir:=@selDIR({RTTLC出力ディレクトリ})},
{ 3},
{viewdir:=@selDIR({ログ参照時の第2ディレクトリ})},
);
case (sel3,
{ 1},{setRTTFIL},
{ 2},{setMEMBER}
);
LOG:=arcdir;
case (ok,
{ 1},
{
case (@chkDIR(arcdir)&&@chkDIR(wkdir)&&
@chkDIR(updir) &&@chkDIR(fswdir)&&
@chkDIR(rttldir)&&@chkDIR(viewdir),
{Yes},
{
TEMP:=wkdir;
UP:=updir;
FSW:=fswdir;
RTTLdir:=rttldir;
VIEWLOG:=viewdir;
MEMBER:=idlist;
/*アクセス前にディレクトリを作成*/
init;
var ProFile[64];
case (@nochar(MEMBER),
0,{ProFile:=LOG2|{PROFILE\member.lst}},
3,{ProFile:=MEMBER},
,{ProFile:=MEMBER}
);
var FreeSoft[64];
case (@nochar(FSW),
0,{FreeSoft:=LOG2|{FREESOFT}},
3,{FreeSoft:=FSW},
,{FreeSoft:=FSW}
);
mkdir2(LOG2|{アクセスdat}); mkdir2(TEMP);
mkdir2(LOG2|{board}); mkdir2(@body(ProFile,,{\}));
mkdir2(LOG2|{DATALIB}); mkdir2(@body(FreeSoft,,{\}));
mkdir2(LOG2|{fnews}); /*mkdir2(RTTLdir)*/;
},
{No},{SNDMSG({okasi_f.snd});im({Yes})}
);
case (@tail(rttl,{\})={RTTLC.EXE}
||@tail(rttl,{\})={RTTLC}
||@tail(rttl,{\})={rttlc.exe}
||@tail(rttl,{\})={rttlc},
{Yes},{RTTLC:=rttl},
{No},{footnote({RTTLCをドライブ名からのフルパスで} |{入力して下さい(拡張子は不要)});
SNDMSG({okasi_f.snd});wait(3);im({Yes})}
);
},
{ 2},{im({No})},
{ 3},{im({Yes})},
{ 4},{intUSR;updir:={};fswdir:={};
rttldir:={};viewdir:={};idlist:={};im({Yes})},
{ 5},{HLPview(dirHLP);im({Yes})},
,{im(!(sel1={ 0}&&sel2={ 0}&&sel3={ 0}))}
);
});
};
/* 背景色の設定をする */
%setCOLOR{case (R,{},{R:=0});case (G,{},{G:=0}); case (B,{},{B:=0});
SNDMSG({erande_f.snd});footnote({背景色の変更をします});
loop ({select ({背景色の変更をします}|
{ 現在は r=}|R|{ g=}|G|{ b=}|B|{ です},
Wtime4,{im({No})},
{赤↑},
{case(R<251,{Yes},{R:=R+5;backclr(R,G,B)});im({Yes})},
{赤↓},
{case(R> 4,{Yes},{R:=R-5;backclr(R,G,B)});im({Yes})},
{緑↑},
{case(G<251,{Yes},{G:=G+5;backclr(R,G,B)});im({Yes})},
{緑↓},
{case(G> 4,{Yes},{G:=G-5;backclr(R,G,B)});im({Yes})},
{青↑},
{case(B<251,{Yes},{B:=B+5;backclr(R,G,B)});im({Yes})},
{青↓},
{case(B> 4,{Yes},{B:=B-5;backclr(R,G,B)});im({Yes})},
{終了},
{im({No})}
)})};
/* 音声メッセージファイルのコピー */
%copySND{[snddir] /* 最後は「\」であること */
display (BELL);footnote({システムCDをセットして下さい});
select({システムCDをセットして下さい},
Wtime4,,
{ OK },
{
case (@setcdir({q:\fj2\msg}),
{Yes},
{
footnote({erande_f.sndをコピーします});
command({copy order\erande_f.snd }|snddir|{*.*});
footnote({nyuryo_f.sndをコピーします});
footnote({nyuryo_f.sndをコピーします});
command({copy order\nyuryo_f.snd }|snddir|{*.*});
footnote({kaknin_f.sndをコピーします});
command({copy order\kaknin_f.snd }|snddir|{*.*});
footnote({owata_f.sndをコピーします});
command({copy info\owata_f.snd }|snddir|{*.*});
footnote({okasi_f.sndをコピーします});
command({copy warning\okasi_f.snd }|snddir|{*.*});
footnote({jikan_f.sndをコピーします});
command({copy info\jikan_f.snd }|snddir|{*.*});
footnote({});
});
},{ NO });
};
/* 音声メッセージファイルの設定 */
%setSNDDIR{
var sound[64];
sound:= SOUND;
loop ({
footnote({ディレクトリ名を入力して下さい});
SNDMSG({nyuryo_f.snd});
%a @plane(
{c音声メッセージファイルを格納するディレクトリを指定して下さい\n}|
{t /\n}|
{s / ディレクトリ検索 \n}|
{c ルートディレクトリ以外は最後の「\」は不要です\n}|
{c 例 A:\MOPTERM\SOUND\n}|
{s / 設定 / 取消 },sound);
%snd @head(@getline(a,1,1),{\n});
%sel @head(@getline(a,2,1),{\n});
%ok @head(@getline(a,3,1),{\n});
case(snd,{},,,{sound:=snd});
case(sel,{ 1},{sound:=@selDIR({音声メッセージファイル格納ディレクトリ})});
case (ok,{ 1},
{
case (@chkDIR(sound),
{Yes},
{
%sound2 @dir2(sound);
mkdir2(sound);
case( @filechk(sound2|{erande_f.snd})&&
@filechk(sound2|{nyuryo_f.snd})&&
@filechk(sound2|{kaknin_f.snd})&&
@filechk(sound2|{okasi_f.snd})&&
@filechk(sound2|{owata_f.snd})&&
@filechk(sound2|{jikan_f.snd})&&
mopver<>{Win31},
{No},{copySND(sound2)});
VBELL:={No};
SOUND:=sound;
SOUND2:=@dir2(SOUND);
},
{No},{im({Yes})})
},
{No},{im({No})},
,{im({Yes})})
});
};
/* belfieの設定 */
%setBELFIL{SNDMSG({erande_f.snd});
footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
%bell @filesel({SND});
%bell2 {case (@nochar(@getcdir),{3},{im(@getcdir|bell)},
,{im(@getcdir|{\}|bell)})};
case (bell,{},{BELFIL:={}},,{BELFIL:=@bell2});
case(@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
{Yes},{bellfile(BELFIL)});
SOUND:={};SOUND2:={};VBELL:={No};
};
/* 入力プロンプトの設定 */
%setPRMPT{
SNDMSG({erande_f.snd});
footnote({入力時のプロンプト方法を指定して下さい});
select({入力時のプロンプト方法を指定して下さい},
Wtime4,
{case(VBELL,{Yes},,,{VBELL:={No}})},
{ 音声メッセージ },
{VBELL:={No};BELL:={};setSNDDIR},
{ ブザー音 },
{SOUND:={};SOUND2:={};VBELL:={No};BELL:=@xc({07});BELFIL:={}},
{ 画面フラッシュ },
{SOUND:={};SOUND2:={};VBELL:={Yes};BELL:=@xc({07});BELFIL:={}},
{指定のsndファイル},
{VBELL:={No};BELL:=@xc({07});setBELFIL},
{ プロンプト無し },
{SOUND:={};SOUND2:={};VBELL:={No};BELL:={};BELFIL:={}});
visibell(VBELL);
};
/* なっとうスクロールの設定 */
%setNATTOU{%natto {case (NATTOU,
{Yes},{im({『 使用する 』})},
, {im({『 使用しない 』})}
);
};
SNDMSG({erande_f.snd});footnote({なっとうスクロールを使用しますか});
select ({なっとうスクロールを使用しますか 現在は}|@natto|{です},
Wtime4,,
{ 使用する },{NATTOU:={Yes};nattou(NATTOU)},
{ 使用しない },{NATTOU:={No};nattou(NATTOU)}
);
};
/* クリック音の設定 */
%setCLICK{%clk {case (CLICK,
{No},{im({『 クリック音なし 』})},
, {im({『 クリック音あり 』})}
);
};
SNDMSG({erande_f.snd}); footnote({クリック音を出力しますか});
select ({クリック音を出力しますか 現在は}|@clk|{です},
Wtime4,,
{ クリック音あり },{CLICK:={Yes};click(CLICK)},
{ クリック音なし },{CLICK:={No};click(CLICK)}
);
};
/* かな漢字変換モードの初期値の設定 */
%setOAK {var oakj [2]; var oakr [2];
var oakk [2]; var oakz [2];
loop ({
oakj:=@YesNo(@exist(OAK,{J}),{2});
oakr:=@YesNo(@exist(OAK,{R}),{2});
%k @exist(OAK,{K});
%h @exist(OAK,{H});
case(k={No}&&h={No},{Yes},{oakk:={3}});
case(k,{Yes},{oakk:={2}});
case(h,{Yes},{oakk:={1}});
oakz:=@YesNo(@exist(OAK,{Z}),{2});
footnote({かな漢字変換モードを設定してください});
SNDMSG({erande_f.snd});
%a @plane(
{cかな漢字変換モードの初期値を設定してください\n}|
{r漢字辞書モード /使用する/使わない\n}|
{r日本語入力モード /ローマ字/かな\n}|
{rカナモード /ひらがな/カタカナ/英字\n}|
{r全角モード /全角 /半角\n}|
{s / 設定 / 取消 },
oakj,oakr,oakk,oakz);
oakj:= @head(@getline(a,1,1),{\n});
oakr:= @head(@getline(a,2,1),{\n});
oakk:= @head(@getline(a,3,1),{\n});
oakz:= @head(@getline(a,4,1),{\n});
%ok @head(@getline(a,5,1),{\n});
case (ok,
{ 1},
{
OAK:={};
case(oakj,{ 1},{OAK:=OAK|{J}});
case(oakr,{ 1},{OAK:=OAK|{R}});
case(oakk,{ 1},{OAK:=OAK|{H}},{ 2},{OAK:=OAK|{K}});
case(oakz,{ 1},{OAK:=OAK|{Z}});
case(OAK<>{},{Yes},{setoak(OAK)});
im({No});
},
,{im({No})});
});
};
/* ログ参照時の設定をする */
%setREFR{
var Info [2];
var Dive [2];
var Dord [2];
var Ford [2];
%sitst {
case(STYPE,
{x},{im({ 特殊 })},{n},{im({ファイル名})},
{e},{im({拡張子})},{s},{im({サイズ})},
{d},{im({ 日付 })},{u},{im({非ソート })},
,{im({ 特殊 })});
};
Info:= @case(INFO,{Yes},{im({ 1})},{Def},{im({ 2})},
{No},{im({ 3})},,{im({ 1})});
Dive:= @YesNo(DIVE,{1});
Dord:= @case(DORD,{+},{im({ 1})},{-},{im({ 2})},,{im({ 1})});
Ford:= @case(FORD,{+},{im({ 1})},{-},{im({ 2})},,{im({ 2})});
loop ({
footnote({ログ参照時の条件を選択してください});
SNDMSG({erande_f.snd});
%a @plane(
{cログ参照時の条件を選択してください\n}|
{r 情報表示 /TXF標準/定義ファイル/しない\n}|
{r ディレクトリ再帰検索 /する/しない\n}|
{c ソート方法 現在 [}|@sitst|{]\n}|
{s / 特殊 /ファイル名/拡張子}|
{/サイズ/ 日付 /非ソート \n}|
{r ソート順序(ディレクトリ) /昇順/降順\n}|
{r ソート順序(ファイル) /昇順/降順\n}|
{c サイズソートの際のソート順序(ディレクトリ)及び、\n}|
{c 非ソートに際のソート順序の設定は意味を持ちません\n}|
{s / 設定 / 取消 },
Info,Dive,Dord,Ford);
Info:= @head(@getline(a,1,1),{\n});
Dive:= @head(@getline(a,2,1),{\n});
%sel1 @head(@getline(a,3,1),{\n});
Dord:= @head(@getline(a,4,1),{\n});
Ford:= @head(@getline(a,5,1),{\n});
%ok @head(@getline(a,6,1),{\n});
case(sel1,{ 1},{STYPE:={x};im({Yes})},
{ 2},{STYPE:={n};im({Yes})},
{ 3},{STYPE:={e};im({Yes})},
{ 4},{STYPE:={s};im({Yes})},
{ 5},{STYPE:={d};im({Yes})},
{ 6},{STYPE:={u};im({Yes})});
case (ok,
{ 1},
{
INFO:= @case(Info,{ 1},{im({Yes})},
{ 2},
{
%tfl CDIR2|{FAPXTXF.SET};
case(@filechk(tfl),{No},
{
write(tfl,
{&情報表示 定義ファイルです}|CRLF);
});
im({Def})
},
{ 3},{im({No})},,{im({Yes})});
DIVE:= @case (Dive,
{ 1},{im({Yes})},{ 2},{im({No})},
,{im({Yes})});
DORD:= @case (Dord,
{ 1},{im({+})},{ 2},{im({-})},
,{im({+})});
FORD:= @case (Ford,
{ 1},{im({+})},{ 2},{im({-})},
,{im({-})});
im({No});
},
{ 2},{im({No})},
,{im(sel1!=0)}
);
});
};
/*専用のフッタの設定*/
%setFUTA {
%futa FUTA;var ok[2];
%ftless @YesNo(Futless,{1});
loop ({
%a @plane(
{c貴方専用のフッタ情報登録\n}|
{t 専用フッタの内容/xxxxxxxxxxxxxxxxxxxxxxxxx}|
{xxxxxxxxxxxxxxx\n}|
{r 一時フッタレス指定 /する/しない\n}|
{s / 登録 / 取消 \n},
futa,ftless,1);
%futa @head(@getline(a,1,1),{\n});
%ftless @head(@getline(a,2,1),{\n});
ok:= @head(@getline(a,3,1),{\n});
case (ok,
{ 1},{
FUTA:=futa;
Futless:=@case (ftless,
{ 1},{im({Yes})},{ 2},{im({No})},,{im({No})}
);
im({No})},
,{im({No})}
)});
};
/*通信後のメモの設定*/
%setMEMO {%memo afMEMO;var ok[2];
loop ({
%a @plane(
{c通信後のメモ書き込み情報登録\n}|
{t 登録メモ 内容/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n}|
{s / 登録 / 取消 \n},
memo,1);
%memo @head(@getline(a,1,1),{\n});
ok:= @head(@getline(a,2,1),{\n});
case (ok,
{ 1},{afMEMO:=memo;im({No})},
,{im({No})})
});
};
/* その他の設定 */
%setETC {
var Nattou [2];
var Click [2];
var Tab [2];
var Lock [2];
var Open [2];
var Hosei [2];
var Flyline [2];
var Hedfut [2];
Nattou:=@YesNo(NATTOU,{1});Click:=@YesNo(CLICK,{2});
Tab:= @case (TAB,{1},{im({1})},{2},{im({2})},{4},{im({3})},
{8},{im({4})},,{im({4})});
Lock:= @YesNo(LOCK,{2});
Open:= @YesNo(OPENING,{1});
Hosei:= @YesNo(HOSEI,{1});
Flyline:=@case (FlyLine,{1},{im({1})},{2},{im({2})},{3},{im({3})},
{4},{im({4})},,{im({4})});
Hedfut:=@case (HedFut,{Std},{im({1})},{Als},{im({2})},
{art},{im({3})},{Jap},{im({4})},,{im({5})});
loop ({
footnote({その他の条件を設定してください});
SNDMSG({erande_f.snd});
%a @plane(
{s / 背景色の設定 \n}|
{s / プロンプト方法の設定 \n}|
{s / かな漢字変換初期値の設定 \n}|
{s / ログ参照時の設定 \n}|
{r納豆スクロール /する/しない\n}|
{rクリック音出力 /する/しない\n}|
{rタブ数 /1/2/4/8\n}|
{rシフトロック /する/しない\n}|
{rオープニング画面表示 /する/しない\n}|
{r複数ネットメニュー表示 /する/しない\n}|
{rエコーバック前に送信する行数/1/2/3/4\n}|
{rヘッダ・フッタ/STD/ALIS/arti/日本語/しない\n}|
{s専用フッタorフッタレス / 登録する \n}|
{s通信後のメモ / 登録する \n}|
{s / 設定 / 取消 },
Nattou,Click,Tab,Lock,Open,Hosei,Flyline,Hedfut);
%sel1 @head(@getline(a,1,1),{\n});%sel2 @head(@getline(a,2,1),{\n});
%sel3 @head(@getline(a,3,1),{\n});%sel4 @head(@getline(a,4,1),{\n});
Nattou:=@head(@getline(a,5,1),{\n});Click:= @head(@getline(a,6,1),{\n});
Tab:= @head(@getline(a,7,1),{\n});Lock:= @head(@getline(a,8,1),{\n});
Open:= @head(@getline(a,9,1),{\n});Hosei:= @head(@getline(a,10,1),{\n});
Flyline:=@head(@getline(a,11,1),{\n});Hedfut:= @head(@getline(a,12,1),{\n});
%sel5 @head(@getline(a,13,1),{\n});%sel6 @head(@getline(a,14,1),{\n});
%ok @head(@getline(a,15,1),{\n});
case (sel1,{ 1},{setCOLOR;im({Yes})});
case (sel2,{ 1},{setPRMPT;im({Yes})});
case (sel3,{ 1},{setOAK;im({Yes})});
case (sel4,{ 1},{setREFR;im({Yes})});
case (sel5,{ 1},{setFUTA;im({Yes})});
case (sel6,{ 1},{setMEMO;im({Yes})});
case (ok,
{ 1},{
NATTOU:=@case (Nattou,
{ 1},{nattou({Yes});im({Yes})},
{ 2},{nattou({No});im({No})},
,{im({})}
);
CLICK:=@case (Click,
{ 1},{click({Yes});im({Yes})},
{ 2},{click({No});im({No})},
,{im({})}
);
TAB:=@case (Tab,
{ 1},{tab({1});im({1})},
{ 2},{tab({2});im({2})},
{ 3},{tab({4});im({4})},
{ 4},{tab({8});im({8})},
,{im({})}
);
LOCK:=@case (Lock,
{ 1},{shiftl({Yes});im({Yes})},
{ 2},{shiftl({No});im({No})},
,{im({})}
);
OPENING:=@case (Open,
{ 1},{im({Yes})},
{ 2},{im({No})},
,{im({Yes})}
);
HOSEI:=@case (Hosei,
{ 1},{im({Yes})},
{ 2},{im({No})},
,{im({Yes})}
);
FlyLine:=@case (Flyline,
{ 1},{im({1})},{ 2},{im({2})},
{ 3},{im({3})},{ 4},{im({4})},
,{im({})}
);
HedFut:=@case (Hedfut,
{ 1},{im({Std})},{ 2},{im({Als})},
{ 3},{im({art})},{ 4},{im({Jap})},
{ 5},{im({})},,{im({})}
);
im({No});
},{ 2},{im({No})},
,{im(sel1==1||sel2==1||sel3==1||sel4==1
||sel5==1||sel6==1)}
)})};
/* ファイルマネージャの選択 */
%setFMGR{
%mgr @case(FMGR,{},{im({標準ファイルマネージャ})},,{im(FMGR)});
SNDMSG({erande_f.snd});
footnote({ファイルマネージャを選択して下さい 現在は }|mgr|{ です});
FMGR:=
@loop ({select({ファイルマネージャを選択してください},
Wtime4,{im(FMGR)},
{ 標準ファイルマネージャ },{im({})},
{ 任意のファイルマネージャ },
{
footnote({ファイルマネージャ用のオート}|
{パイロットを指定して下さい});
%fmgr @filesel();
case(fmgr,{},{im({})},
,{case(@nochar(@getcdir),
{3},{im(@getcdir|fmgr)},
,{im(@getcdir|{\}|fmgr)})});
});
});
};
/* 設定情報をファイルに保存する */
%writeSET{
[file]
setcdir(CDIR);
dispoff(!DEBUG);
command({copy }|file|{ }|@body(file,,{.})|{.BAK});
delfile(file);
dispoff({No});
write(file,
{ID :=}|@xc({7b})|ID|@xc({7d})|{;\n}|
{PassWord:=}|@xc({7b})|PassWord|@xc({7d})|{;\n}|
{HanDLe :=}|@xc({7b})|HanDLe|@xc({7d})|{;\n}|
{AcP :=}|@xc({7b})|AcP|@xc({7d})|{;\n}|
{AcPNo :=}|@xc({7b})|AcPNo|@xc({7d})|{;\n}|
{ROAD :=}|@xc({7b})|ROAD|@xc({7d})|{;\n}|
{ROAD2 :=}|@xc({7b})|ROAD2|@xc({7d})|{;\n}|
{ROAD3 :=}|@xc({7b})|ROAD3|@xc({7d})|{;\n}|
{ROAD4 :=}|@xc({7b})|ROAD4|@xc({7d})|{;\n}|
{sROAD :=}|@xc({7b})|sROAD|@xc({7d})|{;\n}|
{GEN :=}|@xc({7b})|GEN|@xc({7d})|{;\n}|
{GEN2 :=}|@xc({7b})|GEN2|@xc({7d})|{;\n}|
{GEN3 :=}|@xc({7b})|GEN3|@xc({7d})|{;\n}|
{GEN4 :=}|@xc({7b})|GEN4|@xc({7d})|{;\n}|
{genteiT :=}|@xc({7b})|genteiT|@xc({7d})|{;\n}|
{openT :=}|@xc({7b})|openT|@xc({7d})|{;\n}|
{closeT :=}|@xc({7b})|closeT|@xc({7d})|{;\n});
write(file,
{NETname :=}|@xc({7b})|NETname|@xc({7d})|{;\n}|
{NET :=}|@xc({7b})|NET|@xc({7d})|{;\n}|
{CALL :=}|@xc({7b})|CALL|@xc({7d})|{;\n}|
{TBINty :=}|@xc({7b})|TBINty|@xc({7d})|{;\n}|
{BINty :=}|@xc({7b})|BINty|@xc({7d})|{;\n}|
{REDIAL :=}|@xc({7b})|REDIAL|@xc({7d})|{;\n}|
{REDIALt :=}|@xc({7b})|REDIALt|@xc({7d})|{;\n}|
{MODEM :=}|@xc({7b})|MODEM|@xc({7d})|{;\n}|
{DIAL :=}|@xc({7b})|DIAL|@xc({7d})|{;\n}|
{TEMP :=}|@xc({7b})|TEMP|@xc({7d})|{;\n}|
{LOG :=}|@xc({7b})|LOG|@xc({7d})|{;\n}|
{aftLOG :=}|@xc({7b})|aftLOG|@xc({7d})|{;\n}|
{freLOG :=}|@xc({7b})|freLOG|@xc({7d})|{;\n}|
{UP :=}|@xc({7b})|UP|@xc({7d})|{;\n}|
{FSW :=}|@xc({7b})|FSW|@xc({7d})|{;\n}|
{RTTLdir :=}|@xc({7b})|RTTLdir|@xc({7d})|{;\n}|
{RTop :=}|@xc({7b})|RTop|@xc({7d})|{;\n}|
{VIEWLOG :=}|@xc({7b})|VIEWLOG|@xc({7d})|{;\n}|
{MEMBER :=}|@xc({7b})|MEMBER|@xc({7d})|{;\n});
write(file,
{UPDOWN :=}|@xc({7b})|UPDOWN|@xc({7d})|{;\n}|
{MAILDEL :=}|@xc({7b})|MAILDEL|@xc({7d})|{;\n}|
{MAILRED :=}|@xc({7b})|MAILRED|@xc({7d})|{;\n}|
{DelML :=}|@xc({7b})|DelML|@xc({7d})|{;\n}|
{BmalON :=}|@xc({7b})|BmalON|@xc({7d})|{;\n}|
{BMALDEL :=}|@xc({7b})|BMALDEL|@xc({7d})|{;\n}|
{BMALRED :=}|@xc({7b})|BMALRED|@xc({7d})|{;\n}|
{DelBML :=}|@xc({7b})|DelBML|@xc({7d})|{;\n}|
{JISAR :=}|@xc({7b})|JISAR|@xc({7d})|{;\n}|
{ESCon :=}|@xc({7b})|ESCon|@xc({7d})|{;\n}|
{PLTmemo :=}|@xc({7b})|PLTmemo|@xc({7d})|{;\n}|
{FlyLine :=}|@xc({7b})|FlyLine|@xc({7d})|{;\n}|
{AP3 :=}|@xc({7b})|AP3|@xc({7d})|{;\n}|
{ACCESS :=}|@xc({7b})|ACCESS|@xc({7d})|{;\n}|
{MACTIV :=}|@xc({7b})|MACTIV|@xc({7d})|{;\n}|
{HedFut :=}|@xc({7b})|HedFut|@xc({7d})|{;\n}|
{FUTA :=}|@xc({7b})|FUTA|@xc({7d})|{;\n}|
{Futless :=}|@xc({7b})|Futless|@xc({7d})|{;\n}|
{afMEMO :=}|@xc({7b})|afMEMO|@xc({7d})|{;\n}|
{BINop :=}|@xc({7b})|BINop|@xc({7d})|{;\n}|
{WHO :=}|@xc({7b})|WHO|@xc({7d})|{;\n});
write(file,
{TalkID1 :=}|@xc({7b})|TalkID1|@xc({7d})|{;\n}|
{TalkID2 :=}|@xc({7b})|TalkID2|@xc({7d})|{;\n}|
{TalkID3 :=}|@xc({7b})|TalkID3|@xc({7d})|{;\n}|
{TalkID4 :=}|@xc({7b})|TalkID4|@xc({7d})|{;\n}|
{TalkID5 :=}|@xc({7b})|TalkID5|@xc({7d})|{;\n}|
{TalkID6 :=}|@xc({7b})|TalkID6|@xc({7d})|{;\n}|
{TalkID7 :=}|@xc({7b})|TalkID7|@xc({7d})|{;\n}|
{TalkID8 :=}|@xc({7b})|TalkID8|@xc({7d})|{;\n}|
{TalkID9 :=}|@xc({7b})|TalkID9|@xc({7d})|{;\n}|
{TalkID10:=}|@xc({7b})|TalkID10|@xc({7d})|{;\n}|
{TalkID11:=}|@xc({7b})|TalkID11|@xc({7d})|{;\n}|
{TalkID12:=}|@xc({7b})|TalkID12|@xc({7d})|{;\n}|
{TalkID13:=}|@xc({7b})|TalkID13|@xc({7d})|{;\n}|
{TalkID14:=}|@xc({7b})|TalkID14|@xc({7d})|{;\n}|
{TalkID15:=}|@xc({7b})|TalkID15|@xc({7d})|{;\n}|
{TalkID16:=}|@xc({7b})|TalkID16|@xc({7d})|{;\n}|
{TalkID17:=}|@xc({7b})|TalkID17|@xc({7d})|{;\n}|
{TalkID18:=}|@xc({7b})|TalkID18|@xc({7d})|{;\n}|
{TalkID19:=}|@xc({7b})|TalkID19|@xc({7d})|{;\n}|
{TalkID20:=}|@xc({7b})|TalkID20|@xc({7d})|{;\n});
write(file,
{CMt1 :=}|@xc({7b})|CMt1|@xc({7d})|{;\n}|
{CMt2 :=}|@xc({7b})|CMt2|@xc({7d})|{;\n}|
{CMt3 :=}|@xc({7b})|CMt3|@xc({7d})|{;\n}|
{CMt4 :=}|@xc({7b})|CMt4|@xc({7d})|{;\n}|
{CMt5 :=}|@xc({7b})|CMt5|@xc({7d})|{;\n}|
{CMt6 :=}|@xc({7b})|CMt6|@xc({7d})|{;\n}|
{CMt7 :=}|@xc({7b})|CMt7|@xc({7d})|{;\n}|
{CMt8 :=}|@xc({7b})|CMt8|@xc({7d})|{;\n}|
{CMt9 :=}|@xc({7b})|CMt9|@xc({7d})|{;\n}|
{CMt10 :=}|@xc({7b})|CMt10|@xc({7d})|{;\n}|
{CMt11 :=}|@xc({7b})|CMt11|@xc({7d})|{;\n}|
{CMt12 :=}|@xc({7b})|CMt12|@xc({7d})|{;\n}|
{CMt13 :=}|@xc({7b})|CMt13|@xc({7d})|{;\n}|
{CMt14 :=}|@xc({7b})|CMt14|@xc({7d})|{;\n}|
{CMt15 :=}|@xc({7b})|CMt15|@xc({7d})|{;\n}|
{CMt16 :=}|@xc({7b})|CMt16|@xc({7d})|{;\n}|
{CMt17 :=}|@xc({7b})|CMt17|@xc({7d})|{;\n}|
{CMt18 :=}|@xc({7b})|CMt18|@xc({7d})|{;\n}|
{CMt19 :=}|@xc({7b})|CMt19|@xc({7d})|{;\n}|
{CMt20 :=}|@xc({7b})|CMt20|@xc({7d})|{;\n});
write(file,
{OPENING :=}|@xc({7b})|OPENING|@xc({7d})|{;\n}|
{HOSEI :=}|@xc({7b})|HOSEI|@xc({7d})|{;\n}|
{SOUND :=}|@xc({7b})|SOUND|@xc({7d})|{;\n}|
{FMGR :=}|@xc({7b})|FMGR|@xc({7d})|{;\n}|
{RTTLC :=}|@xc({7b})|RTTLC|@xc({7d})|{;\n}|
{INFO :=}|@xc({7b})|INFO|@xc({7d})|{;\n}|
{DIVE :=}|@xc({7b})|DIVE|@xc({7d})|{;\n}|
{STYPE :=}|@xc({7b})|STYPE|@xc({7d})|{;\n}|
{DORD :=}|@xc({7b})|DORD|@xc({7d})|{;\n}|
{FORD :=}|@xc({7b})|FORD|@xc({7d})|{;\n}|
{R :=}|@xc({7b})|R|@xc({7d})|{;\n}|
{G :=}|@xc({7b})|G|@xc({7d})|{;\n}|
{B :=}|@xc({7b})|B|@xc({7d})|{;\n}|
{BELFIL :=}|@xc({7b})|BELFIL|@xc({7d})|{;\n}|
{VBELL :=}|@xc({7b})|VBELL|@xc({7d})|{;\n}|
{NATTOU :=}|@xc({7b})|NATTOU|@xc({7d})|{;\n}|
{CLICK :=}|@xc({7b})|CLICK|@xc({7d})|{;\n}|
{LOCK :=}|@xc({7b})|LOCK|@xc({7d})|{;\n}|
{TAB :=}|@xc({7b})|TAB|@xc({7d})|{;\n}|
{OAK :=}|@xc({7b})|OAK|@xc({7d})|{;\n}|
{DORAEND :=}|@xc({7b})|DORAEND|@xc({7d})|{;\n});
SETFILE1:={標準設定};
};
/* 設定情報をもとに戻す */
%CANCEL {footnote({本当にもとに戻してもいいですか?});
select ({本当にもとに戻してもいいですか?},
Wtime4,,
{ O K },
{case(@filechk(SETFILE),{Yes},
{setcdir(CDIR);#DORASET.SET;init;SETFILE1:={標準設定}})
},{ N G });
};
/* 設定情報をファイルに保存する */
%SAVE {[Befname]
var newfile [64];
case (Befname,
{net},{newfile:=NET|{.USR}},
{net2},{
footnote({設定情報を保存するファイルを指定して下さい});
newfile:=@filesel({USR})}
);
case (newfile<>{},
{Yes},{
newfile:=@dir2(@getcdir)|newfile;
writeSET(newfile)
});
footnote(NET|{.USRファイルに設定を保存しました});wait(2)
};
/* ファイルから設定情報を読み込む */
%LOAD {var newfile [64];SNDMSG({erande_f.snd});
footnote({設定情報を読み込むファイルを指定して下さい});
newfile:=@filesel({USR});
case(newfile<>{},{Yes},{
%newdir @getcdir;
case(@nochar(newdir)==3,
{Yes},{newfile:=newdir|newfile},
{No},{newfile:=newdir|{\}|newfile});
case(@filechk(newfile),{Yes},
{%ExcPilot {#}|newfile;ExcPilot;init;
SETFILE1:=@tail(newfile,{\})})});
setcdir(CDIR)};
/* 通信プロトコル選定 T-OS */
%setNETxybin{SNDMSG({erande_f.snd});
select ({バイナリープロトコルを設定して下さい[現在=}|TBINty|{]},
Wtime4,{},
{X-modem},{TBINty:={X-modem};binop:={S}},/*XMODEM SUM(128)*/
{Y-modem},{TBINty:={Y-modem};binop:={Y}}/*YMODEM*/
)};
/* 通信プロトコル選定 WIN */
%setNETbin{SNDMSG({erande_f.snd});
select ({バイナリープロトコルを設定して下さい[現在=}|BINty|{]},
Wtime4,{},
{X-modem},{BINty:={X-modem}},/*XMODEM SUM(128)*/
{X-modem-CRC},{BINty:={X-modem-CRC}},/*XMDM CRC(128)*/
{X-modem-1K-CRC},{BINty:={X-modem-1K-CRC}},/*XMDM CRC(1024)*/
{Y-modem},{BINty:={Y-modem}},/*YMODEM*/
{Y-modem-G},{BINty:={Y-modem-G}},/*YMODEM-g*/
{MLINK},{BINty:={MLINK}},/*M-LINK*/
{Z-modem},{BINty:={Z-modem}}/*ZMODEM*/
);
case (BINty,
{X-modem},{setbin({X-modem});binop:={S}},
{X-modem-CRC},{setbin({X-modem-CRC});binop:={C}},
{X-modem-1K-CRC},{setbin({X-modem-1K-CRC});binop:={X}},
{Y-modem},{setbin({Y-modem});binop:={Y}},
{Y-modem-G},{setbin({Y-modem-G});binop:={G}},
{MLINK},{setbin({MLINK});binop:={M}},
{Z-modem},{RecDir(FSW);/*受信ディレクトリーの指定*/
/*SetZAuto({No}); Z-modem受信の自動起動無の指定*/
setbin({Z-modem});binop:={Z}},
,{setbin({Y-modem});BINty:={Y-modem};binop:={Y}}
);binop:=binop
};
/*COMMAND.COMドライブの指定*/
%setCOMDRV{SNDMSG({erande_f.snd});
select ({COMMAND.COMが存在するドライブを指定して下さい[現在=}|COMDRV|{]},
Wtime4,{},
{A},{COMDRV:={A}},{B},{COMDRV:={B}},{C},{COMDRV:={C}},{D},{COMDRV:={D}},
{E},{COMDRV:={E}},{F},{COMDRV:={F}},{G},{COMDRV:={G}},{H},{COMDRV:={H}},
{I},{COMDRV:={I}},{J},{COMDRV:={J}},{K},{COMDRV:={K}},{L},{COMDRV:={L}},
{M},{COMDRV:={M}},{N},{COMDRV:={N}},{O},{COMDRV:={O}},{P},{COMDRV:={P}}) };
/* 設定する情報の選択 */
%DORASET{
loop ({SNDMSG({erande_f.snd});
footnote({設定する情報を選択して下さい});
select ({設定する情報を選択して下さい << 各種の設定 >>},
60,{im({No})},
{ID & パスワード & ハンドル名の設定},{setID;im({Yes})},
{ モデム・電話機タイプの設定 },{setMDM;im({Yes})},
{ NET名称と電話番号「電話帳」 },
{setBBSname;setBBSTEL;setACP;setLOGF;im({Yes})},
{ プロトコルの設定 },{setNETxybin;im({Yes})},
{ ログファイルの設定 },{setLOGF;im({Yes})},
{ 通信、RTTLC,微調整の設定 },
{setcdir(CDIR);#DORASETC.PLP;im({Yes})},
{ その他の設定 },{setETC;im({Yes})},
{ サブメニューに戻る },{im({No})}
)})
};
%DORASETwin{
loop ({SNDMSG({erande_f.snd});
footnote({設定する情報を選択して下さい});
select ({設定する情報を選択して下さい << 各種の設定 >>},
60,{im({No})},
{ ID & パスワード & ハンドル名の設定},{setID;im({Yes})},
{ モデム・電話機タイプの設定 },{setMDM;im({Yes})},
{ NET名称と電話番号「電話帳」 },
{setBBSname;setBBSTEL;setACP;setLOGF;im({Yes})},
{ プロトコルの設定 },{setNETbin;im({Yes})},
{ ログファイルの設定 },{setLOGF;im({Yes})},
{ 通信,RTTLC,微調整の設定},
{setcdir(CDIR);#DORASETC.PLP;im({Yes})},
{ その他の設定 },{setETC;im({Yes})},
{ サブメニューに戻る},{im({No})}
)})
};
%setBUPcom{SNDMSG({erande_f.snd});
%bmailHLP{
バイナリメールシステムは、ホストプログラムのバージョンにより
異なりますので 選択の際は御注意ください。
BMAILコマンド 説 明
M 「MB」で「バイナリメール送信モード」に成るホスト。
(システム:MINA-NET汎用版:
AOI-NET用バージョン)
AOI-NET,MINA-NET,JC-NET,POA-NET
MB 通常のメールモードに入り、「B」を指定すると
「バイナリメールモード」に成るホスト。
(システム:kifs版:ミンキームーン版:DIGITAL-BBS版 :
resouse で配布のBメールきっと版)
TGK-NET,KMF-NET,ミンキームーン-NET,DIGITAL-NET,
SSS-NET,SLOW's-NET
Z メインメニューから「Z」を指定すると
「バイナリメールモード」に成るホスト。
(システム:The_BEAT-NET版)
KT-NET,BEAT-NET
※バイナリメールシステムの無いホストでは、BMAILコマンドを設定しないで
下さい。DORAにて対応していないBMAILコマンドが有る場合は、お知らせ
下さい。m(_ _)mペコペコ};
select (NET|{ネットのB-MAILアップコマンドを指定して下さい[現在=}
|BINop|{]},
Wtime4,{},
{M},{BINop:={M}},{MB},{BINop:={MB}},{Z},{BINop:={Z}},
{HELP},{HLPview(bmailHLP);im({Yes})});
};
%setBMAIL{
%doBmail BINop;
%bmaldel@case (BMALDEL|BMALRED,
{YesYes},{case(DelBML,{other},{im({2})},,{im({1})})},
{YesNo},{case(DelBML,{other},{im({2})},,{im({1})})},
{NoYes},{im({3})},{NoNo},{im({4})},,{im({4})});
loop ({
footnote({B-MAIL 情報を設定してください});
SNDMSG({nyuryo_f.snd});
%a @plane(
{cバイナリメールの コマンドを入力して下さい\n}|
{cネットによって異なる事が有りますので\n}|
{c注意して下さい\n}|
{t ネットのコマンド / xx\n}|
{s コマンド選択 / 検索 /削除\n}|
{r Bメール処理 /既読DEL/既読DEL他/確認/しない\n}|
{s / 設定 / 取消 },
doBmail,bmaldel);
%doBmail@head(@getline(a,1,1),{\n});
%sel1 @head(@getline(a,2,1),{\n});
%bmaldel@head(@getline(a,3,1),{\n});
%ok @head(@getline(a,4,1),{\n});
case (sel1,
{ 1},
{setBUPcom;%doBmail BINop},
{ 2},
{BINop:={};%doBmail BINop},
);
case(bmaldel,
{ 1},{BMALDEL:={Yes};BMALRED:={No};
DelBML:={all};BmalON:={Yes}},
{ 2},{BMALDEL:={Yes};BMALRED:={No};
DelBML:={other};BmalON:={Yes}},
{ 3},{BMALDEL:={No};BMALRED:={Yes};
DelBML:={};BmalON:={Yes}},
,{BMALDEL:={No};BMALRED:={No};
DelBML:={};BmalON:={No}});
case (ok,
{ 1},
{DOBMAIL:=doBmail},
{ 2},{im({No})},
,{im({Yes})}
);
});
};
%slctNEMU{
loop ({SNDMSG({erande_f.snd});
footnote({設定する情報を選択して下さい});
select ({<サブメニュー>設定メニューを選択して下さい},
60,{im({No})},
{<< 各種の設定 >>DORA電話帳もあるよ},
{case (mopver={Win31},
{Yes},{DORASETwin},
{No},{DORASET});im({Yes})},
{<< バイナリメール関連の設定 >>},{setBMAIL;im({Yes})},
{ もとの設定にもどす },{CANCEL;im({Yes})},
{ ファイルマネージャの選択 },{setFMGR;im({Yes})},
{ 設定をファイルに保存する>}|NET|{.USR}
,{setcdir(CDIR);SAVE({net});im({Yes})},
{ 設定をファイルに保存する>*.USR}
,{setcdir(CDIR);SAVE({net2});im({Yes})},
{ ファイルから設定を読み込む<*.USR},{setcdir(CDIR);LOAD;im({Yes})},
{ 設定を保存して終了>DORASET.SET},{writeSET(SETFILE);im({No})},
{ 保存しない(一時的な変更) }
,{SETFILE1:={一時設定};im({No})}
)});
};
slctNEMU;